Type rCliente
    codigo As Integer
    nombre As String * 30
    telefono As String * 15
End Type


Sub prueba_Get()
    Dim fichero As String
    Dim cliente As rCliente
    fichero = "C:\Temp\tfRandom.txt"
    Open fichero For Random As #1 Len = Len(cliente)
    Get #1, 2, cliente
    Debug.Print "Codigo   (" & cliente.codigo & ")"
    Debug.Print "Nombre   (" & Trim(cliente.nombre) & ")"
    Debug.Print "Telfono (" & Trim(cliente.telefono) & ")"
    Close #1
End Sub
